home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)u8.d64 / three'd.l < prev    next >
Text File  |  2007-02-28  |  404b  |  17 lines
  1. 0010 // A SIMPLE PROCEDURE TO ALLOW INPUT OF 3D CO-ORDS
  2. 0021 SETGRAPHIC 0
  3. 0022 TURTLESIZE 2
  4. 0030 PROC THREE'D(X,Y,Z,P) 
  5. 0050 IF P=0 THEN MOVETO X+Z/2,Y+Z/2
  6. 0060 IF P=1 THEN DRAWTO X+Z/2,Y+Z/2
  7. 0080 ENDPROC THREE'D
  8. 0090 // EXAMPLE OF USE
  9. 0095 P:=0
  10. 0100 REPEAT 
  11. 0110 READ X,Y,Z
  12. 0120 THREE'D(X,Y,Z,P)
  13. 0125 P:=1
  14. 0130 UNTIL EOD
  15. 0140 END 
  16. 0150 DATA 50,20,0,100,20,0,100,20,50,75,50,25,100,20,0,75,50,25,50,20,0
  17.